object FrmReceberBaixaPorPessoa: TFrmReceberBaixaPorPessoa
  Left = 168
  Top = 57
  Width = 803
  Height = 573
  Caption = 'Contas a Receber - Baixa por Pessoa'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object plFiltros: TPanel
    Left = 0
    Top = 40
    Width = 787
    Height = 54
    Align = alTop
    TabOrder = 0
    object Label2: TLabel
      Left = 8
      Top = 8
      Width = 41
      Height = 13
      Caption = 'Empresa'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 296
      Top = 8
      Width = 32
      Height = 13
      Caption = 'Cliente'
    end
    object btnLocalizar: TButton
      Left = 636
      Top = 22
      Width = 75
      Height = 25
      Caption = '&Localizar'
      TabOrder = 6
      OnClick = btnLocalizarClick
    end
    object edtEmpresa: TEdit
      Left = 8
      Top = 24
      Width = 33
      Height = 21
      Hint = 'Empresa'
      TabOrder = 0
      OnExit = edtEmpresaExit
    end
    object BtnEmpresa: TBitBtn
      Left = 42
      Top = 24
      Width = 21
      Height = 21
      Caption = '...'
      TabOrder = 1
      TabStop = False
      OnClick = BtnEmpresaClick2
    end
    object stEmpresa: TStaticText
      Left = 64
      Top = 24
      Width = 233
      Height = 21
      AutoSize = False
      BorderStyle = sbsSingle
      TabOrder = 2
    end
    object edtCliente: TEdit
      Left = 298
      Top = 24
      Width = 63
      Height = 21
      Hint = 'Pessoa'
      TabOrder = 3
      OnExit = edtClienteExit
    end
    object btnCliente: TBitBtn
      Left = 363
      Top = 24
      Width = 21
      Height = 21
      Hint = '  '
      Caption = '...'
      TabOrder = 4
      TabStop = False
      OnClick = btnClienteClick
    end
    object stCliente: TStaticText
      Left = 385
      Top = 24
      Width = 248
      Height = 21
      AutoSize = False
      BorderStyle = sbsSingle
      TabOrder = 5
    end
    object btnCancel: TBitBtn
      Left = 712
      Top = 22
      Width = 75
      Height = 25
      Caption = 'Cancelar'
      Enabled = False
      TabOrder = 7
      OnClick = btnCancelClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 341
    Width = 787
    Height = 194
    Align = alBottom
    TabOrder = 1
    object Panel1: TPanel
      Left = 1
      Top = 144
      Width = 785
      Height = 49
      Align = alBottom
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 0
      object BitBaixa: TBitBtn
        Left = 704
        Top = 8
        Width = 75
        Height = 25
        Hint = 'Baixa lancamento de cart'#227'o de cr'#233'dito '
        Caption = '&Baixa'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = BitBaixaClick
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object pnl_LastUpdate: TPanel
        Left = 2
        Top = 2
        Width = 535
        Height = 45
        Align = alLeft
        BevelOuter = bvNone
        TabOrder = 1
        object Label11: TLabel
          Left = 192
          Top = 0
          Width = 87
          Height = 13
          Caption = #218'ltima Atualiza'#231#227'o'
        end
        object Label12: TLabel
          Left = 0
          Top = 15
          Width = 48
          Height = 13
          Caption = 'CLIENTE:'
        end
        object lblLastCliente: TLabel
          Left = 48
          Top = 15
          Width = 3
          Height = 13
          Caption = '-'
        end
        object Label13: TLabel
          Left = 0
          Top = 30
          Width = 106
          Height = 13
          Caption = 'TITULOS BAIXADOS:'
        end
        object lblLastTitulos: TLabel
          Left = 112
          Top = 30
          Width = 3
          Height = 13
          Caption = '-'
        end
        object Label14: TLabel
          Left = 216
          Top = 30
          Width = 91
          Height = 13
          Caption = 'VALOR DA BAIXA:'
        end
        object lblLastTotal: TLabel
          Left = 312
          Top = 30
          Width = 3
          Height = 13
          Caption = '-'
        end
      end
    end
    object Panel4: TPanel
      Left = 1
      Top = 121
      Width = 785
      Height = 23
      Align = alClient
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 1
      object Label3: TLabel
        Left = 248
        Top = 5
        Width = 67
        Height = 13
        Caption = 'Total Pago:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label4: TLabel
        Left = 8
        Top = 5
        Width = 68
        Height = 13
        Caption = 'Total Geral:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblTotal: TLabel
        Left = 80
        Top = 5
        Width = 46
        Height = 13
        Caption = 'R$ 0,00'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object lblPago: TLabel
        Left = 320
        Top = 5
        Width = 46
        Height = 13
        Caption = 'R$ 0,00'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
    object pnlBaixa: TPanel
      Left = 1
      Top = 1
      Width = 785
      Height = 120
      Align = alTop
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 2
      TabStop = True
      object Label5: TLabel
        Left = 8
        Top = 8
        Width = 80
        Height = 13
        Caption = 'Data Pagamento'
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object lbl_empresabanco: TLabel
        Left = 125
        Top = 46
        Width = 80
        Height = 13
        Caption = 'Empresa/Banco:'
        Enabled = False
      end
      object lbl_caixaconta: TLabel
        Left = 429
        Top = 46
        Width = 62
        Height = 13
        Caption = 'Caixa/Conta:'
        Enabled = False
      end
      object lbl_agencia: TLabel
        Left = 721
        Top = 46
        Width = 42
        Height = 13
        Caption = 'Ag'#234'ncia:'
        Enabled = False
        Visible = False
      end
      object Label7: TLabel
        Left = 509
        Top = 8
        Width = 101
        Height = 13
        Caption = 'Forma de Pagamento'
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 406
        Top = 8
        Width = 73
        Height = 13
        Caption = 'Valor Recebido'
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 306
        Top = 9
        Width = 51
        Height = 13
        Caption = 'Descontos'
        Enabled = False
      end
      object Label1: TLabel
        Left = 216
        Top = 9
        Width = 25
        Height = 13
        Caption = 'Juros'
        Enabled = False
      end
      object Label6: TLabel
        Left = 116
        Top = 9
        Width = 67
        Height = 13
        Caption = 'Data de Baixa'
        Enabled = False
      end
      object edt_datapagamento: TDBEdit
        Left = 8
        Top = 21
        Width = 97
        Height = 21
        Hint = 'Data de recebimento'
        CharCase = ecUpperCase
        DataField = 'LAN_DATA'
        DataSource = dtsPrincipal
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object btn_empresa: TBitBtn
        Left = 167
        Top = 60
        Width = 21
        Height = 21
        Caption = '...'
        Enabled = False
        TabOrder = 9
        TabStop = False
        OnClick = btn_empresaClick
      end
      object st_empresa: TStaticText
        Left = 189
        Top = 60
        Width = 238
        Height = 21
        AutoSize = False
        BorderStyle = sbsSingle
        Enabled = False
        TabOrder = 13
      end
      object btn_caixabanco: TBitBtn
        Left = 471
        Top = 60
        Width = 21
        Height = 21
        Caption = '...'
        Enabled = False
        TabOrder = 11
        TabStop = False
        OnClick = btn_caixabancoClick
      end
      object stLocalRec: TStaticText
        Left = 493
        Top = 60
        Width = 226
        Height = 21
        AutoSize = False
        BorderStyle = sbsSingle
        Enabled = False
        TabOrder = 14
      end
      object st_formapagamento: TStaticText
        Left = 581
        Top = 21
        Width = 205
        Height = 21
        AutoSize = False
        BorderStyle = sbsSingle
        Enabled = False
        TabOrder = 15
      end
      object edt_formapagamento: TDBEdit
        Left = 509
        Top = 21
        Width = 49
        Height = 21
        Hint = 'Forma de pagamento'
        CharCase = ecUpperCase
        DataField = 'LAN_FORMAPGTO'
        DataSource = dtsPrincipal
        Enabled = False
        TabOrder = 5
        OnExit = edt_formapagamentoExit
      end
      object btn_formapagamento: TBitBtn
        Left = 559
        Top = 21
        Width = 21
        Height = 21
        Hint = 'Consulta formas de pagamento'
        Caption = '...'
        Enabled = False
        TabOrder = 6
        TabStop = False
        OnClick = btn_formapagamentoClick
      end
      object edt_valorrecebido: TDBEdit
        Left = 408
        Top = 21
        Width = 97
        Height = 21
        Hint = 'Valor recebido por titulos'
        CharCase = ecUpperCase
        DataField = 'VALOR_RECEBIDO'
        DataSource = dtsPrincipal
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnEnter = edt_valorrecebidoEnter
        OnExit = edt_valorrecebidoExit
      end
      object edt_descontos: TDBEdit
        Left = 306
        Top = 21
        Width = 95
        Height = 21
        Hint = 'Valor de descontos'
        CharCase = ecUpperCase
        DataField = 'DESCONTOS'
        DataSource = dtsPrincipal
        Enabled = False
        TabOrder = 3
      end
      object edt_juros: TDBEdit
        Left = 216
        Top = 21
        Width = 81
        Height = 21
        Hint = 'Valor de juros'
        CharCase = ecUpperCase
        DataField = 'JUROS'
        DataSource = dtsPrincipal
        Enabled = False
        TabOrder = 2
      end
      object edt_databaixa: TDBEdit
        Left = 115
        Top = 21
        Width = 94
        Height = 21
        TabStop = False
        CharCase = ecUpperCase
        Color = clBtnFace
        DataField = 'DTHBAIXA'
        DataSource = dtsPrincipal
        Enabled = False
        ReadOnly = True
        TabOrder = 1
      end
      object btnSelecionar: TBitBtn
        Left = 8
        Top = 88
        Width = 75
        Height = 25
        Caption = 'Selecionar'
        Enabled = False
        TabOrder = 16
        OnClick = btnSelecionarClick
      end
      object btnBaixar: TBitBtn
        Left = 83
        Top = 88
        Width = 75
        Height = 25
        Caption = 'Confirmar'
        Enabled = False
        TabOrder = 17
        OnClick = btnBaixarClick
      end
      object btnCancelar: TBitBtn
        Left = 158
        Top = 88
        Width = 75
        Height = 25
        Cancel = True
        Caption = 'Cancelar'
        Enabled = False
        TabOrder = 18
        OnClick = btnCancelarClick
      end
      object rdg_Forma: TDBRadioGroup
        Left = 8
        Top = 43
        Width = 113
        Height = 39
        Caption = 'Local'
        Columns = 2
        DataField = 'LocalPagamento'
        DataSource = dtsPrincipal
        Items.Strings = (
          'Caixa'
          'Banco')
        TabOrder = 7
        Values.Strings = (
          'C'
          'B')
        OnClick = rdg_FormaClick
      end
      object edt_EmpresaBanco: TDBEdit
        Left = 124
        Top = 60
        Width = 41
        Height = 21
        DataField = 'EmpresaBanco'
        DataSource = dtsPrincipal
        TabOrder = 8
        OnEnter = edt_EmpresaBancoEnter
        OnExit = edt_EmpresaBancoExit
      end
      object edt_caixabanco: TDBEdit
        Left = 428
        Top = 60
        Width = 41
        Height = 21
        DataField = 'CaixaConta'
        DataSource = dtsPrincipal
        TabOrder = 10
        OnExit = edt_caixabancoExit
      end
      object edt_agencia: TDBEdit
        Left = 720
        Top = 60
        Width = 65
        Height = 21
        DataField = 'Agencia'
        DataSource = dtsPrincipal
        TabOrder = 12
        Visible = False
      end
      object btnVariasParc: TBitBtn
        Left = 233
        Top = 88
        Width = 110
        Height = 25
        Cancel = True
        Caption = 'Pagar V'#225'rias Parcelas'
        Enabled = False
        TabOrder = 19
        OnClick = btnVariasParcClick
      end
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 94
    Width = 787
    Height = 247
    Align = alClient
    DataSource = dtsPrincipal
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    OnKeyDown = DBGrid1KeyDown
    Columns = <
      item
        Expanded = False
        FieldName = 'TITULO'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'EMISSAO'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CALC_PARCELAS'
        Title.Caption = 'Parcelas'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VENCIMENTO'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VALOR'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CALC_JUROS'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DESCONTOS'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'LAN_DATA'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VALOR_RECEBIDO'
        Visible = True
      end>
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 787
    Height = 40
    Align = alTop
    BevelInner = bvLowered
    BorderWidth = 2
    Caption = 'Contas a Receber - Baixa por Pessoa'
    Color = clWhite
    Ctl3D = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -27
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold, fsItalic]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 3
  end
  object dtsPrincipal: TDataSource
    AutoEdit = False
    DataSet = CDS_BAIXA
    OnStateChange = dtsPrincipalStateChange
    Left = 448
    Top = 184
  end
  object CDS_BAIXA: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftUnknown
        Name = 'pEmpresa'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pPessoa'
        ParamType = ptUnknown
      end>
    ProviderName = 'DSP_BAIXA'
    AfterOpen = CDS_BAIXAAfterOpen
    AfterClose = CDS_BAIXAAfterClose
    AfterEdit = CDS_BAIXAAfterEdit
    BeforePost = CDS_BAIXABeforePost
    AfterPost = CDS_BAIXAAfterPost
    AfterCancel = CDS_BAIXAAfterCancel
    AfterScroll = CDS_BAIXAAfterScroll
    OnCalcFields = CDS_BAIXACalcFields
    OnReconcileError = CDS_BAIXAReconcileError
    BeforeApplyUpdates = CDS_BAIXABeforeApplyUpdates
    AfterApplyUpdates = CDS_BAIXAAfterApplyUpdates
    Left = 208
    Top = 184
    object CDS_BAIXAIDFTITULO: TIntegerField
      FieldName = 'IDFTITULO'
      ReadOnly = True
    end
    object CDS_BAIXAEMISSAO: TDateField
      DisplayLabel = 'Emiss'#227'o'
      FieldName = 'EMISSAO'
      ReadOnly = True
    end
    object CDS_BAIXAVENCIMENTO: TDateField
      DisplayLabel = 'Vencimento'
      FieldName = 'VENCIMENTO'
      ReadOnly = True
    end
    object CDS_BAIXAVALOR: TFloatField
      DisplayLabel = 'Valor (R$)'
      FieldName = 'VALOR'
      ReadOnly = True
      DisplayFormat = '#,###,##0.00'
    end
    object CDS_BAIXAJUROS: TFloatField
      DisplayLabel = 'Juros (R$)'
      FieldName = 'JUROS'
      DisplayFormat = '#,###,##0.00'
      EditFormat = '#,###,##0.00'
    end
    object CDS_BAIXADESCONTOS: TFloatField
      DisplayLabel = 'Descontos (R$)'
      FieldName = 'DESCONTOS'
      DisplayFormat = '#,###,##0.00'
      currency = True
    end
    object CDS_BAIXAPEDIDO: TStringField
      DisplayLabel = 'Pedido'
      FieldName = 'PEDIDO'
      ReadOnly = True
      Size = 13
    end
    object CDS_BAIXARECEBIMENTO: TDateField
      FieldName = 'RECEBIMENTO'
    end
    object CDS_BAIXAVALOR_RECEBIDO: TFloatField
      DisplayLabel = 'Valor Recebido (R$)'
      FieldName = 'VALOR_RECEBIDO'
      DisplayFormat = '#,###,##0.00'
    end
    object CDS_BAIXAUSRBAIXA: TStringField
      FieldName = 'USRBAIXA'
      Size = 3
    end
    object CDS_BAIXADTHBAIXA: TDateTimeField
      FieldName = 'DTHBAIXA'
    end
    object CDS_BAIXAPARCELAS: TIntegerField
      FieldName = 'PARCELAS'
      ReadOnly = True
    end
    object CDS_BAIXABANCOLANIDF: TIntegerField
      FieldName = 'BANCOLANIDF'
    end
    object CDS_BAIXACONTA: TStringField
      FieldName = 'CONTA'
      ReadOnly = True
      Size = 3
    end
    object CDS_BAIXASUBCONTA: TStringField
      FieldName = 'SUBCONTA'
      ReadOnly = True
      Size = 3
    end
    object CDS_BAIXAFORMAPGTO: TIntegerField
      FieldName = 'FORMAPGTO'
    end
    object CDS_BAIXACAIXALANIDF: TIntegerField
      FieldName = 'CAIXALANIDF'
    end
    object CDS_BAIXALAN_CAIXAIDF: TIntegerField
      FieldName = 'LAN_CAIXAIDF'
    end
    object CDS_BAIXALAN_DOCUMENTO: TStringField
      FieldName = 'LAN_DOCUMENTO'
      Size = 13
    end
    object CDS_BAIXALAN_DATA: TDateField
      DisplayLabel = 'Data de Pagamento'
      FieldName = 'LAN_DATA'
    end
    object CDS_BAIXALAN_VALOR: TFloatField
      FieldName = 'LAN_VALOR'
    end
    object CDS_BAIXALAN_TIPO: TStringField
      FieldName = 'LAN_TIPO'
      Size = 1
    end
    object CDS_BAIXALAN_FORMAPGTO: TIntegerField
      FieldName = 'LAN_FORMAPGTO'
    end
    object CDS_BAIXALAN_OBS: TMemoField
      FieldName = 'LAN_OBS'
      BlobType = ftMemo
    end
    object CDS_BAIXALAN_ESTORNADO: TStringField
      FieldName = 'LAN_ESTORNADO'
      Size = 1
    end
    object CDS_BAIXALAN_USUARIO: TStringField
      FieldName = 'LAN_USUARIO'
      Size = 3
    end
    object CDS_BAIXALAN_DATALANCAMENTO: TDateTimeField
      FieldName = 'LAN_DATALANCAMENTO'
    end
    object CDS_BAIXALAN_EMPRESA: TSmallintField
      FieldName = 'LAN_EMPRESA'
    end
    object CDS_BAIXALAN_CONTAIDF: TIntegerField
      FieldName = 'LAN_CONTAIDF'
    end
    object CDS_BAIXALAN_CHEQUE: TStringField
      FieldName = 'LAN_CHEQUE'
      Size = 1
    end
    object CDS_BAIXAEmpresaBanco: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'EmpresaBanco'
      OnChange = CDS_BAIXAEmpresaBancoChange
      Size = 3
    end
    object CDS_BAIXACaixaConta: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'CaixaConta'
      OnChange = CDS_BAIXAEmpresaBancoChange
      Size = 10
    end
    object CDS_BAIXAAgencia: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'Agencia'
      OnChange = CDS_BAIXAEmpresaBancoChange
      Size = 10
    end
    object CDS_BAIXALocalPagamento: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'LocalPagamento'
      OnChange = CDS_BAIXALocalPagamentoChange
      Size = 1
    end
    object CDS_BAIXAEMPRESA: TSmallintField
      FieldName = 'EMPRESA'
    end
    object CDS_BAIXAPESSOA: TIntegerField
      FieldName = 'PESSOA'
    end
    object CDS_BAIXATITULO: TStringField
      DisplayLabel = 'T'#237'tulo'
      FieldName = 'TITULO'
      ReadOnly = True
      Size = 13
    end
    object CDS_BAIXACALC_PARCELAS: TStringField
      FieldKind = fkCalculated
      FieldName = 'CALC_PARCELAS'
      Size = 10
      Calculated = True
    end
    object CDS_BAIXACALC_JUROS: TCurrencyField
      DisplayLabel = 'Juros (R$)'
      FieldKind = fkCalculated
      FieldName = 'CALC_JUROS'
      DisplayFormat = '#,###,##0.00'
      Calculated = True
    end
    object CDS_BAIXAPARCELA: TStringField
      FieldName = 'PARCELA'
      ReadOnly = True
      Size = 13
    end
    object CDS_BAIXANOTA: TStringField
      FieldName = 'NOTA'
      ReadOnly = True
      Size = 13
    end
  end
  object DSP_BAIXA: TDataSetProvider
    DataSet = ZBAIXA
    Left = 280
    Top = 184
  end
  object ZBAIXA: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    UpdateObject = ZUpdateBaixa
    SQL.Strings = (
      'SELECT IDFTITULO,EMISSAO,PARCELA,VENCIMENTO,'
      'VALOR,JUROS,DESCONTOS,PEDIDO,NOTA,RECEBIMENTO,'
      
        'VALOR_RECEBIDO,USRBAIXA,DTHBAIXA,PARCELAS,BANCOLANIDF,CONTA,SUBC' +
        'ONTA,FORMAPGTO,CAIXALANIDF,LAN_CAIXAIDF,LAN_DOCUMENTO,LAN_DATA,L' +
        'AN_VALOR,LAN_TIPO,LAN_FORMAPGTO,LAN_OBS,LAN_ESTORNADO,LAN_USUARI' +
        'O,LAN_DATALANCAMENTO,LAN_EMPRESA,LAN_CONTAIDF,LAN_CHEQUE'
      ', EMPRESA, PESSOA, TITULO'
      'FROM PROC_SELECT_PARCELAS_PENDENTES'
      
        'where recebimento is null and empresa = :pEmpresa  and pessoa = ' +
        ':pPessoa'
      'ORDER BY VENCIMENTO')
    Params = <
      item
        DataType = ftUnknown
        Name = 'pEmpresa'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pPessoa'
        ParamType = ptUnknown
      end>
    Left = 336
    Top = 184
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pEmpresa'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pPessoa'
        ParamType = ptUnknown
      end>
    object ZBAIXAIDFTITULO: TIntegerField
      FieldName = 'IDFTITULO'
      ReadOnly = True
    end
    object ZBAIXAEMISSAO: TDateField
      FieldName = 'EMISSAO'
      ReadOnly = True
    end
    object ZBAIXAVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
      ReadOnly = True
    end
    object ZBAIXAVALOR: TFloatField
      FieldName = 'VALOR'
      ReadOnly = True
    end
    object ZBAIXAJUROS: TFloatField
      FieldName = 'JUROS'
    end
    object ZBAIXADESCONTOS: TFloatField
      FieldName = 'DESCONTOS'
    end
    object ZBAIXAPEDIDO: TStringField
      FieldName = 'PEDIDO'
      ReadOnly = True
      Size = 13
    end
    object ZBAIXARECEBIMENTO: TDateField
      FieldName = 'RECEBIMENTO'
    end
    object ZBAIXAVALOR_RECEBIDO: TFloatField
      FieldName = 'VALOR_RECEBIDO'
    end
    object ZBAIXAUSRBAIXA: TStringField
      FieldName = 'USRBAIXA'
      Size = 3
    end
    object ZBAIXADTHBAIXA: TDateTimeField
      FieldName = 'DTHBAIXA'
    end
    object ZBAIXAPARCELAS: TIntegerField
      FieldName = 'PARCELAS'
      ReadOnly = True
    end
    object ZBAIXABANCOLANIDF: TIntegerField
      FieldName = 'BANCOLANIDF'
    end
    object ZBAIXACONTA: TStringField
      FieldName = 'CONTA'
      ReadOnly = True
      Size = 3
    end
    object ZBAIXASUBCONTA: TStringField
      FieldName = 'SUBCONTA'
      ReadOnly = True
      Size = 3
    end
    object ZBAIXAFORMAPGTO: TIntegerField
      FieldName = 'FORMAPGTO'
    end
    object ZBAIXACAIXALANIDF: TIntegerField
      FieldName = 'CAIXALANIDF'
    end
    object ZBAIXALAN_CAIXAIDF: TIntegerField
      FieldName = 'LAN_CAIXAIDF'
    end
    object ZBAIXALAN_DOCUMENTO: TStringField
      FieldName = 'LAN_DOCUMENTO'
      Size = 13
    end
    object ZBAIXALAN_DATA: TDateField
      FieldName = 'LAN_DATA'
    end
    object ZBAIXALAN_VALOR: TFloatField
      FieldName = 'LAN_VALOR'
    end
    object ZBAIXALAN_TIPO: TStringField
      FieldName = 'LAN_TIPO'
      Size = 1
    end
    object ZBAIXALAN_FORMAPGTO: TIntegerField
      FieldName = 'LAN_FORMAPGTO'
    end
    object ZBAIXALAN_OBS: TMemoField
      FieldName = 'LAN_OBS'
      BlobType = ftMemo
    end
    object ZBAIXALAN_ESTORNADO: TStringField
      FieldName = 'LAN_ESTORNADO'
      Size = 1
    end
    object ZBAIXALAN_USUARIO: TStringField
      FieldName = 'LAN_USUARIO'
      Size = 3
    end
    object ZBAIXALAN_DATALANCAMENTO: TDateTimeField
      FieldName = 'LAN_DATALANCAMENTO'
    end
    object ZBAIXALAN_EMPRESA: TSmallintField
      FieldName = 'LAN_EMPRESA'
    end
    object ZBAIXALAN_CONTAIDF: TIntegerField
      FieldName = 'LAN_CONTAIDF'
    end
    object ZBAIXALAN_CHEQUE: TStringField
      FieldName = 'LAN_CHEQUE'
      Size = 1
    end
    object ZBAIXAEMPRESA: TSmallintField
      FieldName = 'EMPRESA'
    end
    object ZBAIXAPESSOA: TIntegerField
      FieldName = 'PESSOA'
    end
    object ZBAIXATITULO: TStringField
      FieldName = 'TITULO'
      ReadOnly = True
      Size = 13
    end
    object ZBAIXAPARCELA: TStringField
      FieldName = 'PARCELA'
      ReadOnly = True
      Size = 13
    end
    object ZBAIXANOTA: TStringField
      FieldName = 'NOTA'
      ReadOnly = True
      Size = 13
    end
  end
  object ZUpdateBaixa: TZUpdateSQL
    ModifySQL.Strings = (
      'EXECUTE PROCEDURE PROC_PAGAR_PARCELA( :OLD_IDFTITULO, '
      ':EMISSAO, :OLD_PARCELA,'
      ' :VENCIMENTO, :VALOR, :JUROS, :DESCONTOS, :PEDIDO, :NOTA, '
      ':RECEBIMENTO, '
      ' :VALOR_RECEBIDO, :USRBAIXA, :DTHBAIXA, :PARCELAS, '
      ':BANCOLANIDF, :CONTA,'
      '  :SUBCONTA, :FORMAPGTO, :CAIXALANIDF, :PESSOA, :EMPRESA, '
      ':LAN_CAIXAIDF,'
      '   :LAN_DOCUMENTO, :LAN_DATA, :LAN_VALOR, :LAN_TIPO, '
      ':LAN_FORMAPGTO, :LAN_OBS,'
      '    :LAN_ESTORNADO, :LAN_USUARIO, :LAN_DATALANCAMENTO, '
      ':LAN_EMPRESA, '
      '    :LAN_CONTAIDF, :LAN_CHEQUE);')
    UseSequenceFieldForRefreshSQL = False
    Left = 392
    Top = 184
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'OLD_IDFTITULO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'EMISSAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_PARCELA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'VENCIMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'VALOR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'JUROS'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'DESCONTOS'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PEDIDO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'NOTA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'RECEBIMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'VALOR_RECEBIDO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'USRBAIXA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'DTHBAIXA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PARCELAS'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BANCOLANIDF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CONTA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SUBCONTA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'FORMAPGTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CAIXALANIDF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PESSOA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LAN_CAIXAIDF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LAN_DOCUMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LAN_DATA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LAN_VALOR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LAN_TIPO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LAN_FORMAPGTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LAN_OBS'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LAN_ESTORNADO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LAN_USUARIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LAN_DATALANCAMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LAN_EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LAN_CONTAIDF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LAN_CHEQUE'
        ParamType = ptUnknown
      end>
  end
  object SQLC_Recibo: TSQLClientDataSet
    CommandText = 
      'SELECT RCB_CODIGO,'#13#10'EMP_RAZSOC,'#13#10'EMP_FANTAS,'#13#10'EMP_ENDERE,'#13#10'EMP_B' +
      'AIRRO,'#13#10'CID_DESCRI,'#13#10'EMP_ESTCOD,'#13#10'EMP_FONE,'#13#10'EMP_FAX,'#13#10'EMP_CNPJ,' +
      #13#10'EMP_EMAIL,'#13#10'PES_NOME,'#13#10'PES_CPFCNPJ,'#13#10'RCB_VALOR,'#13#10'RCB_DTEMISSAO' +
      #13#10'FROM RECIBOS'#13#10'INNER JOIN EMPRESAS ON (RCB_EMPRESA=EMP_CODIGO)'#13 +
      #10'INNER JOIN PESSOAS ON (RCB_PESSOA=PES_IDFCOD)'#13#10'INNER JOIN CIDAD' +
      'ES ON (CID_CODIGO=EMP_CIDCOD AND CID_ESTCOD=EMP_ESTCOD)'#13#10'WHERE R' +
      'CB_EMPRESA=:RCB_EMPRESA AND RCB_PESSOA=:RCB_PESSOA'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftUnknown
        Name = 'RCB_EMPRESA'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'RCB_PESSOA'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 280
    Top = 232
    object SQLC_ReciboRCB_CODIGO: TIntegerField
      FieldName = 'RCB_CODIGO'
      Required = True
    end
    object SQLC_ReciboEMP_RAZSOC: TStringField
      FieldName = 'EMP_RAZSOC'
      Required = True
      Size = 60
    end
    object SQLC_ReciboEMP_FANTAS: TStringField
      FieldName = 'EMP_FANTAS'
      Required = True
      Size = 60
    end
    object SQLC_ReciboEMP_ENDERE: TStringField
      FieldName = 'EMP_ENDERE'
      Size = 60
    end
    object SQLC_ReciboEMP_BAIRRO: TStringField
      FieldName = 'EMP_BAIRRO'
      Size = 40
    end
    object SQLC_ReciboEMP_ESTCOD: TStringField
      FieldName = 'EMP_ESTCOD'
      Required = True
      Size = 2
    end
    object SQLC_ReciboEMP_FONE: TStringField
      FieldName = 'EMP_FONE'
      Size = 30
    end
    object SQLC_ReciboEMP_FAX: TStringField
      FieldName = 'EMP_FAX'
      Size = 30
    end
    object SQLC_ReciboEMP_CNPJ: TStringField
      FieldName = 'EMP_CNPJ'
      Size = 18
    end
    object SQLC_ReciboEMP_EMAIL: TStringField
      FieldName = 'EMP_EMAIL'
      Size = 60
    end
    object SQLC_ReciboPES_NOME: TStringField
      FieldName = 'PES_NOME'
      Required = True
      Size = 60
    end
    object SQLC_ReciboPES_CPFCNPJ: TStringField
      FieldName = 'PES_CPFCNPJ'
      Size = 18
    end
    object SQLC_ReciboRCB_VALOR: TFMTBCDField
      FieldName = 'RCB_VALOR'
      Required = True
      Precision = 15
      Size = 2
    end
    object SQLC_ReciboRCB_DTEMISSAO: TSQLTimeStampField
      FieldName = 'RCB_DTEMISSAO'
      Required = True
    end
    object SQLC_ReciboCID_DESCRI: TStringField
      FieldName = 'CID_DESCRI'
      Required = True
      Size = 40
    end
  end
  object RvRecibo: TRvProject
    Engine = DtmGeral.RvS_Relatorios
    Left = 224
    Top = 232
  end
  object rv_Recibo: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = SQLC_Recibo
    Left = 336
    Top = 232
  end
  object rvTeste: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = CDS_Valores
    Left = 448
    Top = 232
  end
  object CDS_Valores: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 392
    Top = 232
    Data = {
      640000009619E0BD010000001800000004000000000003000000640009494446
      544954554C4F04000100020000000A56454E43494D454E544F04000600020000
      000556414C4F5208000400020000000E56414C4F525F524543454249444F0800
      0400000000000000}
    object CDS_ValoresIDFTITULO: TIntegerField
      FieldName = 'IDFTITULO'
    end
    object CDS_ValoresVENCIMENTO: TDateField
      DisplayLabel = 'Vencimento'
      FieldName = 'VENCIMENTO'
    end
    object CDS_ValoresVALOR: TFloatField
      DisplayLabel = 'Valor (R$)'
      FieldName = 'VALOR'
      DisplayFormat = '#,###,##0.00'
    end
    object CDS_ValoresVALOR_RECEBIDO: TFloatField
      DisplayLabel = 'Valor Recebido (R$)'
      FieldName = 'VALOR_RECEBIDO'
      DisplayFormat = '#,###,##0.00'
    end
  end
end
